* ================================================================================================================ *
* Issue congruence in international organizations: A study of World Bank spending                                  *
* Authors: Mirko Heinzel, Saliha Metinsoy, Andreas Kern, Benhard Reinsberg                                         *
* Version: 02.11.2024                                                                                              *
* Stata 16.2                                                                                                       *
* ================================================================================================================ *

*cd "location of extracted files"

****************
* Main Article *
****************

use "GP_congruence.dta"

ssc install reghdfe
ssc install estout
ssc install egenmore

*Table 1
reghdfe log_both1 share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
gen sample=e(sample)
estimates store m1

reghdfe log_both1 i.director##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using Table1.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

*Table 2
reghdfe log_core_1 share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using Table2.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

*Table 3
reghdfe log_em_1 share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using Table3.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


************
* Appendix *
************

*Table A3-A5
reghdfe log_both3 share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both3 i.director##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both3 c.vote_shares##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both3 c.log_staff_national##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both3 c.log_staffplace##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_3 share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_3 i.director##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_3 c.vote_shares##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_3 c.log_staff_national##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_3 c.log_staffplace##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_3 share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_3 i.director##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_3 c.vote_shares##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_3 c.log_staff_national##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_3 c.log_staffplace##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA3.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA4.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA5.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A6-A8
reghdfe log_both5 share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both5 i.director##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both5 c.vote_shares##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both5 c.log_staff_national##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both5 c.log_staffplace##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_5 share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_5 i.director##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_5 c.vote_shares##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_5 c.log_staff_national##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_5 c.log_staffplace##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_5 share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_5 i.director##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_5 c.vote_shares##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_5 c.log_staff_national##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_5 c.log_staffplace##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA6.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA7.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA8.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

*TableA9
reghdfe log_coreida_3 share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_coreida_3 i.director##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_coreida_3 c.vote_shares##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_coreida_3 c.log_staff_national##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_coreida_3 c.log_staffplace##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA9.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

*Table A10-A12
reghdfe log_both1 share_public share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 c.share_public##i.director share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.share_public##c.vote_shares share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.share_public##c.log_staff_national share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.share_public##c.log_staffplace share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_public share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 c.share_public##i.director share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.share_public##c.vote_shares share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.share_public##c.log_staff_national share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.share_public##c.log_staffplace share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_public share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 c.share_public##i.director share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.share_public##c.vote_shares share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.share_public##c.log_staff_national share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.share_public##c.log_staffplace share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA10.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA11.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA12.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A13-A15
reghdfe log_both1 share_crs c.share_crs##c.currently_collab share_all, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 i.director##c.share_crs c.share_crs##c.currently_collab share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs c.share_crs##c.currently_collab share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs c.share_crs##c.currently_collab share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs c.share_crs##c.currently_collab share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_crs c.share_crs##c.currently_collab share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs c.share_crs##c.currently_collab share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs c.share_crs##c.currently_collab share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs c.share_crs##c.currently_collab share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs c.share_crs##c.currently_collab share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_crs c.share_crs##c.currently_collab share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs c.share_crs##c.currently_collab share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs c.share_crs##c.currently_collab share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs c.share_crs##c.currently_collab share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs c.share_crs##c.currently_collab share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA13.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA14.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA15.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A16-A18
reghdfe log_both1 share_crs c.share_crs##c.e_wbgi_gee share_all, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 i.director##c.share_crs c.share_crs##c.e_wbgi_gee share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs c.share_crs##c.e_wbgi_gee share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs c.share_crs##c.e_wbgi_gee share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs c.share_crs##c.e_wbgi_gee share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_crs c.share_crs##c.e_wbgi_gee share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_crs c.share_crs##c.e_wbgi_gee share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs c.share_crs##c.e_wbgi_gee share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA16.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA17.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA18.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A19-A21
reghdfe log_both1 share_crs c.share_crs##c.v2x_polyarchy share_all, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 i.director##c.share_crs c.share_crs##c.v2x_polyarchy share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs c.share_crs##c.v2x_polyarchy share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs c.share_crs##c.v2x_polyarchy share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs c.share_crs##c.v2x_polyarchy share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_crs c.share_crs##c.v2x_polyarchy share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs c.share_crs##c.v2x_polyarchy share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs c.share_crs##c.v2x_polyarchy share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs c.share_crs##c.v2x_polyarchy share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs c.share_crs##c.v2x_polyarchy share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_crs c.share_crs##c.v2x_polyarchy share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs c.share_crs##c.c.share_crs##c.v2x_polyarchy share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs c.share_crs##c.c.share_crs##c.v2x_polyarchy share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs c.share_crs##c.c.share_crs##c.v2x_polyarchy share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs c.share_crs##c.c.share_crs##c.v2x_polyarchy share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA19.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA20.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA21.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A22-A24
reghdfe log_both1 share_crs c.share_crs##c.log_gdppc share_all, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 i.director##c.share_crs c.share_crs##c.log_gdppc share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs c.share_crs##c.log_gdppc share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs c.share_crs##c.log_gdppc share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs c.share_crs##c.log_gdppc share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_crs c.share_crs##c.log_gdppc share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs c.share_crs##c.log_gdppc share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs c.share_crs##c.log_gdppc share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs c.share_crs##c.log_gdppc share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs c.share_crs##c.log_gdppc share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_crs c.share_crs##c.log_gdppc share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs c.share_crs##c.log_gdppc share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs c.share_crs##c.log_gdppc share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs c.share_crs##c.log_gdppc share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs c.share_crs##c.log_gdppc share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA22.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA23.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA24.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A25-A27
reghdfe log_both1 share_crs c.share_crs##c.US_idealpointdistance share_all, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 i.director##c.share_crs c.share_crs##c.US_idealpointdistance share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs c.share_crs##c.US_idealpointdistance share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs c.share_crs##c.US_idealpointdistance share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs c.share_crs##c.US_idealpointdistance share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_crs c.share_crs##c.US_idealpointdistance share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_crs c.share_crs##c.US_idealpointdistance share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs c.share_crs##c.US_idealpointdistance share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA25.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA26.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA27.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A28-A30
reghdfe log_both1 share_crs share_all , absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 i.director##c.share_crs share_all , absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs share_all , absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs share_all , absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs share_all , absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_crs share_all log_em_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs share_all log_em_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs share_all log_em_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs share_all log_em_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs share_all log_em_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_crs share_all log_core_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs share_all log_core_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs share_all log_core_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs share_all log_core_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs share_all log_core_1, absorb(cntry_year sector_year ) cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA28.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA29.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA30.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A31
egen sd_cyear=sd(share_crs), by(cntry_year)

reghdfe log_both1 c.sd_cyear##c.share_crs share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_core_1 c.sd_cyear##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_em_1 c.sd_cyear##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

estfe . m1 m2 m3  , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3   using TableA31.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A32-A34
reghdfe log_both1 share_crs share_all , noabsorb cluster(cntry_year)
estimates store m1

reghdfe log_both1 i.director##c.share_crs share_all , noabsorb cluster(cntry_year)
estimates store m2

reghdfe log_both1 c.vote_shares##c.share_crs share_all , noabsorb cluster(cntry_year)
estimates store m3

reghdfe log_both1 c.log_staff_national##c.share_crs share_all , noabsorb cluster(cntry_year)
estimates store m4

reghdfe log_both1 c.log_staffplace##c.share_crs share_all , noabsorb cluster(cntry_year)
estimates store m5

reghdfe log_core_1 share_crs share_all log_em_1 , noabsorb cluster(cntry_year)
estimates store m6

reghdfe log_core_1 i.director##c.share_crs share_all log_em_1 , noabsorb cluster(cntry_year)
estimates store m7

reghdfe log_core_1 c.vote_shares##c.share_crs share_all log_em_1 , noabsorb cluster(cntry_year)
estimates store m8

reghdfe log_core_1 c.log_staff_national##c.share_crs share_all log_em_1 , noabsorb cluster(cntry_year)
estimates store m9

reghdfe log_core_1 c.log_staffplace##c.share_crs share_all log_em_1 , noabsorb cluster(cntry_year)
estimates store m10

reghdfe log_em_1 share_crs share_all log_core_1 , noabsorb cluster(cntry_year)
estimates store m11

reghdfe log_em_1 i.director##c.share_crs share_all log_core_1 , noabsorb cluster(cntry_year)
estimates store m12

reghdfe log_em_1 c.vote_shares##c.share_crs share_all log_core_1 , noabsorb cluster(cntry_year)
estimates store m13

reghdfe log_em_1 c.log_staff_national##c.share_crs share_all log_core_1 , noabsorb cluster(cntry_year)
estimates store m14

reghdfe log_em_1 c.log_staffplace##c.share_crs share_all log_core_1 , noabsorb cluster(cntry_year)
estimates store m15

estfe . m1 m2 m3 m4 m5 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5   using TableA32.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m6 m7 m8 m9 m10 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m6 m7 m8 m9 m10   using TableA33.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

estfe . m11 m12 m13 m14 m15 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m11 m12 m13 m14 m15   using TableA34.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A35
reghdfe log_both1 share_crs share_all if top5!=1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_both1 share_crs share_all if top10!=1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_core_1 share_crs share_all log_em_1 if top5!=1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

reghdfe log_core_1 share_crs share_all log_em_1 if top10!=1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m4

reghdfe log_em_1 share_crs share_all log_core_1 if top5!=1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m5

reghdfe log_em_1 share_crs share_all log_core_1 if top10!=1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m6

estfe . m1 m2 m3 m4 m5 m6 , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3 m4 m5 m6   using TableA35.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A36
reghdfe log_both1 share_public share_priv share_cso share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_core_1 share_public share_priv share_cso share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_em_1 share_public share_priv share_cso share_all , absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

estfe . m1 m2 m3  , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3    using TableA36.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 


*Table A37
reghdfe log_both1 c.alignment_priorities##c.share_crs share_all, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m1

reghdfe log_core_1 c.alignment_priorities##c.share_crs share_all log_em_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m2

reghdfe log_em_1 c.alignment_priorities##c.share_crs share_all log_core_1, absorb(cntry_year crs ) cluster(cntry_year)
estimates store m3

estfe . m1 m2 m3  , labels(cntry_year "Recipient-year fixed effects" crs "Sector fixed effects")

esttab m1 m2 m3    using TableA37.rtf, star(+ 0.10 * 0.05 ** 0.01 *** 0.001) b(4) ///
se r2 mlabels(,titles) indicate(`r(indicate_fe)')  l 

